home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 February / macformat-047.iso / Shareware Plus / Developers / LogoMation 1.1.4 ƒ / Examples / font test / font test
Encoding:
Text File  |  1996-10-24  |  880 b   |  38 lines  |  [UVtx/UVtl]
  1. // This program demonstrates using different
  2. // fonts and text styles.
  3.  
  4. Clear 65009,65535,51464
  5. Up
  6. Goto -width()/2+10, height()/2-20,0
  7. modes("Chicago",12)
  8. printf("")
  9. modes("Times",15)
  10. Goto -width()/2+200, height()/2-20,0
  11. modes("Geneva",12)
  12. printf("")
  13. modes("Symbol",15)
  14.  
  15. ////////////////////////
  16. Function printf_s(style)
  17.     Pen fontstyle=style
  18.     printf(style)
  19.     
  20. ////////////////////////
  21. Function printf(s)
  22.     Print s
  23.     Goto x(),y()-(2+sAscent()+sDescent()), dir()
  24.  
  25. ////////////////////////
  26. Function modes(font,size)
  27.        Pen fontname=font
  28.     Pen fontstyle="Underline", fontsize=size
  29.        printf("-> font: " . font . " (" . size . ") <-")
  30.     printf_s("Plain Text")
  31.     printf_s("Bold")
  32.     printf_s("Italic")
  33.     printf_s("Italic,bold")
  34.     printf_s("Italic,bold,condensed")
  35.     printf_s("Outline")
  36.     printf_s("Shadow")
  37.     printf_s("Condensed")
  38.     printf_s("Extended")